Sub 새양식()

    Dim WS As Worksheet

    Set WS = Sheets.Add(After:=ActiveSheet)
    Sheets("대림").Select
        Cells.Select
        Selection.Copy
    
    WS.Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Range("B7:E7").Select
        Selection.ClearContents
        Range("C9").Select
        Selection.ClearContents
        Range("C16:J21").Select
        Selection.ClearContents
        Range("B7:E7").Select
        ActiveWindow.DisplayGridlines = False
        
    WS.Select
    WS.Name = "새견적서"
    
End Sub